if (-s $ScriptName && open (SCRIPTFILE, $ScriptName)) {
$CustName = "";
while (<SCRIPTFILE>) {
#print "$_<br>";
if ($_ =~ /\/_install\//) {
#print "found=$_<br>";
$CustName = $_;
$CustName =~ s#.*/([^/ ]*) *\n$#\1#;
last;
}
}
#$CustName = "$InstallDir/$CustName";
#print "CustName=$CustName.<br>";
if (-s "$InstallDir/$CustName") {
print "<ul>";
print "<IMG src=\"http://localhost:5759/DEV/images/bullet_ball_green.gif\"><a href=\"http://localhost:5759/cgi-bin/addshow.pl?textedit=$InstallDir/$CustName\">To edit the lauching script of your product</a><br>";
$ScriptName =~ s?.*/([^/]*/_install/[^/]*)$?\1?;
print "<IMG src=\"http://localhost:5759/DEV/images/bullet_ball_green.gif\"><a href=\"http://localhost:5759/$ScriptName\">To test your script</a><br>";
print "</ul>";
} else {
print "<ul><h4><applet class=\"ImageLoopItem\" img=\"http://localhost:5759/DEV/images/blinkingAlert\" ALIGN=middle pause=0 width=56 height=49 pause = 200>You need to create a script called \"$CustName\"</h4></ul>";
#print "<ul><h4><applet class=\"ImageLoopItem\" img=\"http://localhost:5759/DEV/images/blinkingAlert\" ALIGN=middle pause=0 width=56 height=49 pause = 200>You need to create a script called \"$CustName\"</h4></ul>";
}
} else {
print "<ul><h4><applet class=\"ImageLoopItem\" img=\"http://localhost:5759/DEV/images/blinkingAlert\" ALIGN=middle pause=0 width=56 height=49 pause = 200>You need to select the previous link to create your scripts</h4></ul>";
#print "<ul><h4><IMG ALIGN=middle SRC=\"http://localhost:5759/DEV/images/finger.gif\">You need to select the previous link to create your scripts</h4></ul>";
print "<h2><IMG ALIGN=middle SRC=\"http://localhost:5759/DEV/images/finger.gif\" >Read this:</h2><p>You need to specify the name of your script that will do the job. If you don't already have one, select \"Create a default script\". This will create a default script that you can edit later to fit your needs.<br>"
print "<IMG src=\"http://localhost:5759/DEV/images/finger.gif\">Please copy all the necessary files under the \"$HomeDir/_install\" directory<br>";
if ($Platform =~ /demo/ ) {
print "<h2><IMG src=\"http://localhost:5759/DEV/images/bullet_ball_red.gif\"><a href=\"http://localhost:5759/cgi-bin/addshow.pl?DEMO\">To include a slide-show about your product</a></h2><br>";
&OffersEditScript("DEMO");
}
if ($Platform =~ /testdrive/ ) {
print "<h2><IMG src=\"http://localhost:5759/DEV/images/bullet_ball_red.gif\"><a href=\"http://localhost:5759/cgi-bin/addshow.pl?TESTDRIVE\">To include a demo of your product</a></h2><br>";
&OffersEditScript("TESTDRIVE");
$~ = FOOTER;
}
if ($Platform =~ /install/ ) {
print "<h2><IMG src=\"http://localhost:5759/DEV/images/bullet_ball_red.gif\"><a href=\"http://localhost:5759/cgi-bin/addshow.pl?INSTALL\">To include an unlockable or light version of your product</a></h2><br>";
&OffersEditScript("INSTALL");
}
print "<h2><IMG src=\"http://localhost:5759/DEV/images/bullet_ball_red.gif\"><a href=\"http://localhost:5759/cgi-bin/mainmenu.pl?\">To go back to the main menu</a></h2><br>";
#You, like these companies, will benefit from the CDware capability of reaching tens of thousands of potential customers with information, links to your web site, or directly with YOUR product!
<h5><p><A HREF=http://localhost:5759/CDware/Help/SMICopyright.html>Copyright</A> 1995 Sun Microsystems, Inc., 2550 Garcia Ave., Mtn. View, CA 94043 USA. All rights reserved.</h5><br></pre>